home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / bash / bash_108 / src_d2.zoo / bash-d2.zoo / st-bash-src / src.diff < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-03  |  46.5 KB  |  1,772 lines
  1. diff -c ./alias.c /home/scott/work/bash-1.08/st-bash-src/alias.c
  2. *** ./alias.c    Tue Aug 27 08:56:13 1991
  3. --- /home/scott/work/bash-1.08/st-bash-src/alias.c    Fri Jul 26 15:51:46 1991
  4. ***************
  5. *** 92,98 ****
  6.         if ((aliases_length + 1) >= aliases_size)
  7.       {
  8.         aliases =
  9. !         (ASSOC **)xrealloc (aliases,
  10.                   (aliases_size += alias_list_grow_amount)
  11.                   * sizeof (ASSOC *));
  12.       }
  13. --- 92,98 ----
  14.         if ((aliases_length + 1) >= aliases_size)
  15.       {
  16.         aliases =
  17. !         (ASSOC **)xrealloc ((char *)aliases,
  18.                   (aliases_size += alias_list_grow_amount)
  19.                   * sizeof (ASSOC *));
  20.       }
  21. diff -c ./bashline.c /home/scott/work/bash-1.08/st-bash-src/bashline.c
  22. *** ./bashline.c    Sun May 19 17:54:16 1991
  23. --- /home/scott/work/bash-1.08/st-bash-src/bashline.c    Wed Aug 14 11:14:46 1991
  24. ***************
  25. *** 35,45 ****
  26.   
  27.   static char
  28.     **attempt_shell_completion (), *bash_tilde_expand (),
  29. !   *variable_completion_function (), *hostname_completion_function (),
  30.     *command_word_completion_function ();
  31.   
  32.   static void
  33.     snarf_hosts_from_file (), add_host_name (), sort_hostname_list ();
  34.   
  35.   /* Externally defined functions used by this file. */
  36.   extern char
  37. --- 35,57 ----
  38.   
  39.   static char
  40.     **attempt_shell_completion (), *bash_tilde_expand (),
  41. !   *variable_completion_function (), 
  42. ! 
  43. ! /**
  44. !  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  45. !  **/
  46. ! #if !defined(atarist)
  47. ! *hostname_completion_function (),
  48. ! #endif
  49.     *command_word_completion_function ();
  50.   
  51. + /**
  52. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  53. +  **/
  54. + #if !defined(atarist)
  55.   static void
  56.     snarf_hosts_from_file (), add_host_name (), sort_hostname_list ();
  57. + #endif 
  58.   
  59.   /* Externally defined functions used by this file. */
  60.   extern char
  61. ***************
  62. *** 62,69 ****
  63. --- 74,86 ----
  64.     bash_complete_filename_internal (),
  65.     bash_complete_username (), bash_possible_username_completions (),
  66.     bash_complete_username_internal (),
  67. + /**
  68. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  69. +  **/
  70. + #if !defined(atarist)
  71.     bash_complete_hostname (), bash_possible_hostname_completions (),
  72.     bash_complete_hostname_internal (),
  73. + #endif 
  74.     bash_complete_variable (), bash_possible_variable_completions (),
  75.     bash_complete_variable_internal (),
  76.     bash_complete_command (), bash_possible_command_completions (),
  77. ***************
  78. *** 116,126 ****
  79. --- 133,148 ----
  80.     rl_bind_key_in_map ('~', bash_possible_username_completions,
  81.                 emacs_ctlx_keymap);
  82.   
  83. + /**
  84. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  85. +  **/
  86. + #if !defined(atarist)
  87.     rl_add_defun ("complete-hostname", bash_complete_hostname, META('@'));
  88.     rl_add_defun ("possible-hostname-completions",
  89.           bash_possible_hostname_completions, -1);
  90.     rl_bind_key_in_map ('@', bash_possible_hostname_completions,
  91.                 emacs_ctlx_keymap);
  92. + #endif 
  93.   
  94.     rl_add_defun ("complete-variable", bash_complete_variable, META('$'));
  95.     rl_add_defun ("possible-variable-completions",
  96. ***************
  97. *** 211,216 ****
  98. --- 233,242 ----
  99.   /*                                    */
  100.   /* **************************************************************** */
  101.   
  102. + /**
  103. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  104. +  **/
  105. + #if !defined(atarist)
  106.   /* If the user requests hostname completion, then simply build a list
  107.      of hosts, and complete from that forever more. */
  108.   #if !defined (ETCHOSTS)
  109. ***************
  110. *** 255,261 ****
  111.     if (hostname_list_length + 2 > hostname_list_size)
  112.       {
  113.         hostname_list = (char **)
  114. !     xrealloc (hostname_list,
  115.             (1 + (hostname_list_size += 100)) * sizeof (char *));
  116.       }
  117.   
  118. --- 281,287 ----
  119.     if (hostname_list_length + 2 > hostname_list_size)
  120.       {
  121.         hostname_list = (char **)
  122. !     xrealloc ((char *)hostname_list,
  123.             (1 + (hostname_list_size += 100)) * sizeof (char *));
  124.       }
  125.   
  126. ***************
  127. *** 412,417 ****
  128. --- 438,444 ----
  129.       }
  130.     return ((char **)NULL);
  131.   }
  132. + #endif 
  133.   
  134.   /* This is a K*rn shell style insert-last-arg function.  The
  135.      difference is that Bash puts stuff into the history file before
  136. ***************
  137. *** 539,548 ****
  138. --- 566,580 ----
  139.   
  140.     /* Another one.  Why not?  If the word starts in '@', then look through
  141.        the world of known hostnames for completion first. */
  142. + /**
  143. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  144. +  **/
  145. + #if !defined(atarist)
  146.     if (!matches && *text == '@')
  147.       {
  148.         matches = completion_matches (text, hostname_completion_function);
  149.       }
  150. + #endif 
  151.   
  152.     /* And last, (but not least) if this word is in a command position, then
  153.        complete over possible command names, including aliases, functions,
  154. ***************
  155. *** 785,790 ****
  156. --- 817,826 ----
  157.       }
  158.   }
  159.   
  160. + /**
  161. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  162. +  **/
  163. + #if !defined(atarist)
  164.   /* How about a completion function for hostnames? */
  165.   static char *
  166.   hostname_completion_function (text, state)
  167. ***************
  168. *** 827,832 ****
  169. --- 863,869 ----
  170.     else
  171.       return ((char *)NULL);
  172.   }
  173. + #endif 
  174.   
  175.   /* History and alias expand the line.  But maybe do more?  This
  176.      is a test to see what users like.  Do expand_string on the string. */
  177. ***************
  178. *** 987,993 ****
  179.       {
  180.         if (numitems + 1 > maxitems)
  181.       ignores = (struct ign *)
  182. !       xrealloc (ignores, (maxitems += 10) * sizeof (struct ign));
  183.   
  184.         ignores[numitems].val = colon_bit;
  185.         ignores[numitems].len = strlen (colon_bit);
  186. --- 1024,1030 ----
  187.       {
  188.         if (numitems + 1 > maxitems)
  189.       ignores = (struct ign *)
  190. !       xrealloc ((char *)ignores, (maxitems += 10) * sizeof (struct ign));
  191.   
  192.         ignores[numitems].val = colon_bit;
  193.         ignores[numitems].len = strlen (colon_bit);
  194. ***************
  195. *** 1153,1158 ****
  196. --- 1190,1199 ----
  197.     rl_completer_word_break_characters = orig_rl_completer_word_break_characters;
  198.   }
  199.   
  200. + /**
  201. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  202. +  **/
  203. + #if !defined(atarist)
  204.   static void
  205.   bash_complete_hostname (ignore, ignore2)
  206.        int ignore, ignore2;
  207. ***************
  208. *** 1166,1171 ****
  209. --- 1207,1213 ----
  210.   {
  211.     bash_complete_hostname_internal ('?');
  212.   }
  213. + #endif 
  214.   
  215.   static void
  216.   bash_complete_variable (ignore, ignore2)
  217. ***************
  218. *** 1196,1201 ****
  219. --- 1238,1247 ----
  220.     bash_complete_command_internal ('?');
  221.   }
  222.   
  223. + /**
  224. +  ** (sjk)++ Remove hostname/mail references on the Atari ST.
  225. +  **/
  226. + #if !defined(atarist)
  227.   static void
  228.   bash_complete_hostname_internal (what_to_do)
  229.        int what_to_do;
  230. ***************
  231. *** 1203,1208 ****
  232. --- 1249,1255 ----
  233.     bash_specific_completion
  234.       (what_to_do, (Function *)hostname_completion_function);
  235.   }
  236. + #endif 
  237.   
  238.   static void
  239.   bash_complete_variable_internal (what_to_do)
  240. diff -c ./braces.c /home/scott/work/bash-1.08/st-bash-src/braces.c
  241. *** ./braces.c    Thu May 16 04:08:22 1991
  242. --- /home/scott/work/bash-1.08/st-bash-src/braces.c    Fri Jul 26 16:01:46 1991
  243. ***************
  244. *** 110,116 ****
  245.   #if defined (SHELL)
  246.     /* If the amble does not contain BRACE_ARG_SEPARATOR, then just return
  247.        without doing any expansion.  */
  248. !   if (index (amble, brace_arg_separator) == NULL)
  249.       {
  250.         free (amble);
  251.         free (preamble);
  252. --- 110,116 ----
  253.   #if defined (SHELL)
  254.     /* If the amble does not contain BRACE_ARG_SEPARATOR, then just return
  255.        without doing any expansion.  */
  256. !   if (index (amble, brace_arg_separator) == (int)NULL)
  257.       {
  258.         free (amble);
  259.         free (preamble);
  260. ***************
  261. *** 164,170 ****
  262.         register int lp = array_len (partial);
  263.         register int j;
  264.   
  265. !       result = (char **)xrealloc (result, (1 + lp + lr) * sizeof (char *));
  266.   
  267.         for (j = 0; j < lp; j++)
  268.           result[lr + j] = partial[j];
  269. --- 164,170 ----
  270.         register int lp = array_len (partial);
  271.         register int j;
  272.   
  273. !       result = (char **)xrealloc ((char *)result, (1 + lp + lr) * sizeof (char *));
  274.   
  275.         for (j = 0; j < lp; j++)
  276.           result[lr + j] = partial[j];
  277. diff -c ./builtins.c /home/scott/work/bash-1.08/st-bash-src/builtins.c
  278. *** ./builtins.c    Tue Aug 27 08:56:16 1991
  279. --- /home/scott/work/bash-1.08/st-bash-src/builtins.c    Thu Aug 15 21:35:17 1991
  280. ***************
  281. *** 30,35 ****
  282. --- 30,41 ----
  283.   #if defined (HAVE_RESOURCE) && !defined (hpux)
  284.   #include <sys/time.h>
  285.   #include <sys/resource.h>
  286. + /** 
  287. +  ** (sjk)++ Add sys/times.h on an Atari ST
  288. +  **/
  289. + #if defined(atarist)
  290. + #include <sys/times.h>
  291. + #endif
  292.   #else /* !HAVE_RESOURCE || hpux */
  293.   #include <sys/times.h>
  294.   #endif /* !HAVE_RESOURCE || hpux */
  295. ***************
  296. *** 56,63 ****
  297. --- 62,77 ----
  298.   
  299.   /* Yecch!  Who cares about this gross concept in the first place? */
  300.   #ifndef MAXPATHLEN
  301. + /** 
  302. +  ** (sjk)++ Adjust MAXPATHLEN to jive with definition on the Atari ST. 
  303. +  **         (should be made to depend on standard headers).
  304. +  **/
  305. + #if !defined(atarist)
  306.   #define MAXPATHLEN 1024
  307. + #else 
  308. + #define MAXPATHLEN 128
  309.   #endif
  310. + #endif
  311.   
  312.   /* The command name of the currently running function. */
  313.   extern char *this_command_name;
  314. ***************
  315. *** 1072,1078 ****
  316.     }
  317.   
  318.     if (list)
  319. !     {
  320.         char *extract_colon_unit ();
  321.         char *path_string = get_string_value ("CDPATH");
  322.         char *path;
  323. --- 1086,1092 ----
  324.     }
  325.   
  326.     if (list)
  327. !     { 
  328.         char *extract_colon_unit ();
  329.         char *path_string = get_string_value ("CDPATH");
  330.         char *path;
  331. ***************
  332. *** 1080,1087 ****
  333.   
  334.         dirname = list->word->word;
  335.   
  336. !       if (path_string && !absolute_pathname (dirname))
  337. !     {
  338.         while ((path = extract_colon_unit (path_string, &index)))
  339.           {
  340.             char *dir;
  341. --- 1094,1120 ----
  342.   
  343.         dirname = list->word->word;
  344.   
  345. ! /**
  346. !  ** (sjk)++ If on an Atari ST give ?:* a real crack at it.
  347. !  **/
  348. ! #if defined(atarist)
  349. !       if ( dirname && (strlen(dirname)>=2) )
  350. !         if (dirname[1]==':')
  351. !           { int i = strlen(dirname);
  352. !             char *dn; dn = alloca(strlen(dirname));
  353. !             --i;
  354. !             strcpy(dn,dirname);
  355. !             if (dn[i] == '/') dn[i]='\000';
  356. !             if (chdir(dn) >= 0) 
  357. !               { strcpy(dirname,dn);
  358. !                 strcpy(the_current_working_directory,dn);
  359. !                 goto bind_and_exit;
  360. !           }
  361. !           }
  362. ! #endif
  363. !             
  364. !     if (path_string && !absolute_pathname (dirname))
  365. !     { /* Path_String && !absolute_pathname */
  366.         while ((path = extract_colon_unit (path_string, &index)))
  367.           {
  368.             char *dir;
  369. ***************
  370. *** 2674,2680 ****
  371.         if (!dollar_arg_stack)
  372.       {
  373.         dollar_arg_stack =
  374. !         (WORD_LIST **)xrealloc (dollar_arg_stack,
  375.                       (dollar_arg_stack_slots += 10)
  376.                       * sizeof (WORD_LIST **));
  377.       }
  378. --- 2707,2713 ----
  379.         if (!dollar_arg_stack)
  380.       {
  381.         dollar_arg_stack =
  382. !         (WORD_LIST **)xrealloc ((char *)dollar_arg_stack,
  383.                       (dollar_arg_stack_slots += 10)
  384.                       * sizeof (WORD_LIST **));
  385.       }
  386. ***************
  387. *** 2846,2852 ****
  388.   times_builtin (list)
  389.        WORD_LIST *list;
  390.   {
  391. ! #if defined (HAVE_RESOURCE) && !defined (hpux)
  392.     struct rusage self, kids;
  393.   
  394.     no_args (list);
  395. --- 2879,2889 ----
  396.   times_builtin (list)
  397.        WORD_LIST *list;
  398.   {
  399. ! 
  400. ! /** 
  401. !  ** (sjk)++ Adjust times builtin for Atari ST
  402. !  **/
  403. ! #if (defined (HAVE_RESOURCE) && !defined (hpux)) && !defined(atarist)
  404.     struct rusage self, kids;
  405.   
  406.     no_args (list);
  407. ***************
  408. *** 3958,3964 ****
  409.         if (directory_list_offset == directory_list_size)
  410.           {
  411.             pushd_directory_list = (char **)
  412. !         xrealloc (pushd_directory_list,
  413.                 (directory_list_size += 10) * sizeof (char *));
  414.           }
  415.         pushd_directory_list[directory_list_offset++] = current_directory;
  416. --- 3995,4001 ----
  417.         if (directory_list_offset == directory_list_size)
  418.           {
  419.             pushd_directory_list = (char **)
  420. !         xrealloc ((char *)pushd_directory_list,
  421.                 (directory_list_size += 10) * sizeof (char *));
  422.           }
  423.         pushd_directory_list[directory_list_offset++] = current_directory;
  424. diff -c ./config.h /home/scott/work/bash-1.08/st-bash-src/config.h
  425. *** ./config.h    Tue Aug 27 08:56:17 1991
  426. --- /home/scott/work/bash-1.08/st-bash-src/config.h    Tue Jun 18 00:05:22 1991
  427. ***************
  428. *** 64,70 ****
  429.   
  430.   /* Define JOB_CONTROL if your operating system supports
  431.      BSD-like job control. */
  432. ! #define JOB_CONTROL
  433.   
  434.   /* Note that vanilla System V machines don't support BSD job control, 
  435.      although some do support Posix job control. */
  436. --- 64,70 ----
  437.   
  438.   /* Define JOB_CONTROL if your operating system supports
  439.      BSD-like job control. */
  440. ! /* #define JOB_CONTROL */
  441.   
  442.   /* Note that vanilla System V machines don't support BSD job control, 
  443.      although some do support Posix job control. */
  444. diff -c ./execute_cmd.c /home/scott/work/bash-1.08/st-bash-src/execute_cmd.c
  445. *** ./execute_cmd.c    Tue Aug 27 08:56:20 1991
  446. --- /home/scott/work/bash-1.08/st-bash-src/execute_cmd.c    Fri Aug 30 14:05:48 1991
  447. ***************
  448. *** 18,23 ****
  449. --- 18,31 ----
  450.      along with Bash; see the file COPYING.  If not, write to the Free
  451.      Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
  452.   
  453. + /**
  454. +  ** (sjk)++ Needed for the new implimentation of do_piping()
  455. +  **
  456. +  **/
  457. + #if defined(atarist)
  458. + #include <osbind.h>
  459. + #endif
  460. + 
  461.   #include <stdio.h>
  462.   #include <ctype.h>
  463.   #include <sys/types.h>
  464. ***************
  465. *** 531,537 ****
  466.              We take care of that here.  This passes around a bitmap
  467.              of file descriptors that must be closed after making a
  468.              child process in execute_simple_command. */
  469. ! 
  470.           struct fd_bitmap *fd_bitmap1, *fd_bitmap2;
  471.           int newsize;
  472.   
  473. --- 539,549 ----
  474.              We take care of that here.  This passes around a bitmap
  475.              of file descriptors that must be closed after making a
  476.              child process in execute_simple_command. */
  477. ! /** 
  478. !  ** (sjk)++ This above described problem does not exists on the 
  479. !  **         atari ST because of my brain dead pipe implementation.
  480. !  **/
  481. ! #if !defined(atarist)
  482.           struct fd_bitmap *fd_bitmap1, *fd_bitmap2;
  483.           int newsize;
  484.   
  485. ***************
  486. *** 560,566 ****
  487.   
  488.           bcopy (fds_to_close->bitmap, fd_bitmap2->bitmap,
  489.                  fds_to_close->size);
  490. - 
  491.           /* And mark the pipe file descriptors to be closed. */
  492.           fd_bitmap1->bitmap[fildes[0]] = 1;
  493.           fd_bitmap2->bitmap[fildes[1]] = 1; 
  494. --- 572,577 ----
  495. ***************
  496. *** 574,579 ****
  497. --- 585,591 ----
  498.           add_unwind_protect (close_fd_bitmap, fd_bitmap2);
  499.           add_unwind_protect (dispose_fd_bitmap, fd_bitmap1);
  500.           add_unwind_protect (dispose_fd_bitmap, fd_bitmap2);
  501. + 
  502.           execute_command_internal (command->value.Connection->first,
  503.                         asynchronous, pipe_in, fildes[1],
  504.                         fd_bitmap1);
  505. ***************
  506. *** 582,593 ****
  507. --- 594,617 ----
  508.             execute_command_internal (command->value.Connection->second,
  509.                           asynchronous, fildes[0], pipe_out,
  510.                           fd_bitmap2);
  511. + #else 
  512. +         execute_command_internal (command->value.Connection->first,
  513. +                       asynchronous, pipe_in, fildes[1],
  514. +                       fds_to_close);
  515.   
  516. +         exec_result =
  517. +           execute_command_internal (command->value.Connection->second,
  518. +                         asynchronous, fildes[0], pipe_out,
  519. +                         fds_to_close);
  520. + #endif
  521. + 
  522. + #if !defined(atarist)
  523.           /* We cannot call close_fd_bitmap () here.  Doing so will
  524.              cause pipelines with > 2 processes to hang. */
  525.           dispose_fd_bitmap (fd_bitmap1);
  526.           dispose_fd_bitmap (fd_bitmap2);
  527.           discard_unwind_frame ("pipe-file-descriptors");
  528. + #endif
  529.             }
  530.         }
  531.         break;
  532. ***************
  533. *** 1322,1335 ****
  534.   
  535.       if (!absolute_program (words->word->word))
  536.         hashed_file = find_hashed_filename (words->word->word);
  537. ! 
  538.       if (hashed_file)
  539.         command = savestring (hashed_file);
  540.       else
  541. !       {
  542. !         /* A command containing a slash is not looked up in PATH. */
  543. !         if (absolute_program (words->word->word))
  544. !           command = savestring (words->word->word);
  545.           else
  546.             command = find_user_command (words->word->word);
  547.           if (command && !hashing_disabled)
  548. --- 1346,1383 ----
  549.   
  550.       if (!absolute_program (words->word->word))
  551.         hashed_file = find_hashed_filename (words->word->word);
  552. !         
  553.       if (hashed_file)
  554.         command = savestring (hashed_file);
  555.       else
  556. !       { if (absolute_program (words->word->word))
  557. !               { 
  558. ! /** 
  559. !  ** (sjk)++ Add checking of extensions {.tos/.ttp/.prg} on absolute
  560. !  **         paths on the Atari ST.
  561. !  **/
  562. ! #if defined(atarist)
  563. !         char *name_suffix = alloca(4 + strlen(words->word->word));
  564. !                 struct stat finfo;
  565. !                 strcpy(name_suffix,words->word->word);
  566. !                   if (0 != stat(name_suffix,&finfo))
  567. !                  { strcat(name_suffix,".tos");
  568. !                        if (0 != stat(name_suffix,&finfo)) 
  569. !                           { strcpy(name_suffix,words->word->word);
  570. !                             strcat(name_suffix,".ttp");
  571. !                             if (0 != stat(name_suffix,&finfo)) 
  572. !                        { strcpy(name_suffix,words->word->word);
  573. !                                  strcat(name_suffix,".prg");
  574. !                                  if (0 != stat(name_suffix,&finfo))
  575. !                                     strcpy(name_suffix,words->word->word);
  576. !                    }
  577. !               }
  578. !              }
  579. !                      command = savestring (name_suffix);
  580. ! #else
  581. !               command = savestring (words->word->word);
  582. ! #endif
  583. !           }
  584.           else
  585.             command = find_user_command (words->word->word);
  586.           if (command && !hashing_disabled)
  587. ***************
  588. *** 1350,1357 ****
  589.          of COMMAND, since we want the error messages to be redirected. */
  590.         
  591.       if (make_child (savestring (command_line), async) == 0)
  592. !       {
  593. !         do_piping (pipe_in, pipe_out);
  594.   
  595.           /* Execve expects the command name to be in args[0].  So we
  596.              leave it there, in the same format that the user used to
  597. --- 1398,1405 ----
  598.          of COMMAND, since we want the error messages to be redirected. */
  599.         
  600.       if (make_child (savestring (command_line), async) == 0)
  601. !       { 
  602. !             do_piping (pipe_in, pipe_out);
  603.   
  604.           /* Execve expects the command name to be in args[0].  So we
  605.              leave it there, in the same format that the user used to
  606. ***************
  607. *** 1471,1477 ****
  608.                 /* Insert the name of this shell into the
  609.                argument list. */
  610.                 args =
  611. !             (char **)xrealloc (args, (1 + larry) * sizeof (char *));
  612.                 for (i = larry - 1; i; i--)
  613.               args[i] = args[i - 1];
  614.   
  615. --- 1519,1525 ----
  616.                 /* Insert the name of this shell into the
  617.                argument list. */
  618.                 args =
  619. !             (char **)xrealloc ((char *)args, (1 + larry) * sizeof (char *));
  620.                 for (i = larry - 1; i; i--)
  621.               args[i] = args[i - 1];
  622.   
  623. ***************
  624. *** 1521,1529 ****
  625.           exit (EXECUTION_FAILURE);
  626.             }
  627.         }
  628.       else
  629. !       {
  630. !         /* Make sure that the pipes are closed in the parent. */
  631.           close_pipes (pipe_in, pipe_out);
  632.           if (command)
  633.             free (command);
  634. --- 1569,1584 ----
  635.           exit (EXECUTION_FAILURE);
  636.             }
  637.         }
  638. +     
  639.       else
  640. !       { /* Make sure that the pipes are closed in the parent. */
  641. !       
  642. ! /**
  643. !  ** On the Atari ST force GEMDOS buffers into RTL buffers.
  644. !  **/      
  645. ! #if defined(atarist)
  646. !             flush_key_buff(fileno(stdin));
  647. ! #endif
  648.           close_pipes (pipe_in, pipe_out);
  649.           if (command)
  650.             free (command);
  651. ***************
  652. *** 1588,1604 ****
  653.      NO_PIPE and REDIRECT_BOTH are handled correctly. */
  654.   do_piping (pipe_in, pipe_out)
  655.        int pipe_in, pipe_out;
  656. ! {
  657.     if (pipe_in != NO_PIPE)
  658.       {
  659. !       dup2 (pipe_in, 0);
  660.         close (pipe_in);
  661.       }
  662.     if (pipe_out != NO_PIPE)
  663.       {
  664. !       dup2 (pipe_out, 1);
  665.         close (pipe_out);
  666. ! 
  667.         if (pipe_out == REDIRECT_BOTH)
  668.       dup2 (1, 2);
  669.       }
  670. --- 1643,1667 ----
  671.      NO_PIPE and REDIRECT_BOTH are handled correctly. */
  672.   do_piping (pipe_in, pipe_out)
  673.        int pipe_in, pipe_out;
  674. ! { int res;
  675. ! 
  676.     if (pipe_in != NO_PIPE)
  677.       {
  678. !       res = dup2 (pipe_in, 0);
  679. !       if (res < 0) 
  680. !         fprintf(stderr,"pipe_in - dup2:%d, errno:%d\n",res,errno);
  681. ! #if !defined(atarist)
  682.         close (pipe_in);
  683. + #endif
  684.       }
  685.     if (pipe_out != NO_PIPE)
  686.       {
  687. !       res = dup2 (pipe_out, 1);
  688. !       if (res < 0)  
  689. !         fprintf(stderr,"pipe_in - dup2:%d, errno:%d\n",res,errno);
  690. ! #if !defined(atarist)
  691.         close (pipe_out);
  692. ! #endif
  693.         if (pipe_out == REDIRECT_BOTH)
  694.       dup2 (1, 2);
  695.       }
  696. ***************
  697. *** 2111,2118 ****
  698. --- 2174,2213 ----
  699.        char *name;
  700.   {
  701.     char *find_user_command_internal ();
  702. + /**
  703. +  ** (sjk)++ Check the extensions {.tos/.ttp/.prg} for a user command.
  704. +  **/
  705. + #if defined(atarist)
  706. +   char *win,*name_suffix;
  707. +   name_suffix = (char *)alloca(4 + strlen(name)); 
  708. + #endif
  709.   
  710. + #if !defined(atarist)
  711. + 
  712.     return (find_user_command_internal (name, 1));
  713. + 
  714. + #else  /* Must be an Atari ST */
  715. + 
  716. +   win = find_user_command_internal(name, 1);
  717. +   if (win != (char *)NULL) return(win);
  718. +  
  719. +   strcpy(name_suffix,name);
  720. +   strcat(name_suffix,".ttp");
  721. +   win = (char *)find_user_command_internal(name_suffix, 1);
  722. +   if (win != (char *)NULL) return(win);
  723. + 
  724. +   strcpy(name_suffix,name);
  725. +   strcat(name_suffix,".tos");
  726. +   win = (char *)find_user_command_internal(name_suffix, 1);
  727. +   if (win != (char *)NULL) return(win);
  728. + 
  729. +   strcpy(name_suffix,name);
  730. +   strcat(name_suffix,".prg");
  731. +   win = (char *)find_user_command_internal(name_suffix, 1);
  732. +   if (win != (char *)NULL) return(win);
  733. + 
  734. +   return(win);
  735. + #endif                               
  736.   }
  737.   
  738.   /* Locate the file referenced by NAME, searching along the contents
  739. ***************
  740. *** 2194,2200 ****
  741.   
  742.         if (match_index + 1 == match_list_size)
  743.           match_list =
  744. !           (char **)xrealloc (match_list,
  745.                    ((match_list_size += 10) + 1) * sizeof (char *));
  746.         match_list[match_index++] = match;
  747.         match_list[match_index] = (char *)NULL;
  748. --- 2289,2295 ----
  749.   
  750.         if (match_index + 1 == match_list_size)
  751.           match_list =
  752. !           (char **)xrealloc ((char *)match_list,
  753.                    ((match_list_size += 10) + 1) * sizeof (char *));
  754.         match_list[match_index++] = match;
  755.         match_list[match_index] = (char *)NULL;
  756. ***************
  757. *** 2266,2274 ****
  758.        a `.' as the directory path yet. */
  759.     dot_found_in_search = 0;
  760.   
  761.     if (absolute_program (name))
  762.       {
  763. !       full_path = (char *)xmalloc (1 + name_len);
  764.         strcpy (full_path, name);
  765.   
  766.         if (executable_file (full_path) || file_exists_p)
  767. --- 2361,2370 ----
  768.        a `.' as the directory path yet. */
  769.     dot_found_in_search = 0;
  770.   
  771. + 
  772.     if (absolute_program (name))
  773.       {
  774. !       full_path = (char *)xmalloc (1 + strlen(name));
  775.         strcpy (full_path, name);
  776.   
  777.         if (executable_file (full_path) || file_exists_p)
  778. diff -c ./expr.c /home/scott/work/bash-1.08/st-bash-src/expr.c
  779. *** ./expr.c    Tue Aug 27 08:56:20 1991
  780. --- /home/scott/work/bash-1.08/st-bash-src/expr.c    Fri Jul 26 15:50:04 1991
  781. ***************
  782. *** 148,154 ****
  783.     if (expr_depth >= expr_stack_size)
  784.       {
  785.         expr_stack = (EXPR_CONTEXT **)
  786. !     xrealloc (expr_stack, (expr_stack_size += EXPR_STACK_GROW_SIZE)
  787.             * sizeof (EXPR_CONTEXT *));
  788.       }
  789.   
  790. --- 148,154 ----
  791.     if (expr_depth >= expr_stack_size)
  792.       {
  793.         expr_stack = (EXPR_CONTEXT **)
  794. !     xrealloc ((char *)expr_stack, (expr_stack_size += EXPR_STACK_GROW_SIZE)
  795.             * sizeof (EXPR_CONTEXT *));
  796.       }
  797.   
  798. diff -c ./general.c /home/scott/work/bash-1.08/st-bash-src/general.c
  799. *** ./general.c    Tue Aug 27 08:56:21 1991
  800. --- /home/scott/work/bash-1.08/st-bash-src/general.c    Wed Aug 21 13:55:44 1991
  801. ***************
  802. *** 22,27 ****
  803. --- 22,28 ----
  804.   #include <errno.h>
  805.   #include <sys/types.h>
  806.   #include <sys/param.h>
  807. + 
  808.   #include <fcntl.h>
  809.   
  810.   #include "shell.h"
  811. ***************
  812. *** 51,57 ****
  813.   
  814.   char *
  815.   xmalloc (size)
  816. !      int size;
  817.   {
  818.     register char *temp = (char *)malloc (size);
  819.   
  820. --- 52,58 ----
  821.   
  822.   char *
  823.   xmalloc (size)
  824. ! long size;
  825.   {
  826.     register char *temp = (char *)malloc (size);
  827.   
  828. ***************
  829. *** 64,70 ****
  830.   char *
  831.   xrealloc (pointer, size)
  832.        register char *pointer;
  833. !      int size;
  834.   {
  835.     char *temp;
  836.   
  837. --- 65,71 ----
  838.   char *
  839.   xrealloc (pointer, size)
  840.        register char *pointer;
  841. ! long size;
  842.   {
  843.     char *temp;
  844.   
  845. ***************
  846. *** 140,148 ****
  847.   unset_nodelay_mode (fd)
  848.        int fd;
  849.   {
  850.     int flags, set = 0;
  851.   
  852. !   if ((flags = fcntl (fd, F_GETFL, 0)) < 0)
  853.       return;
  854.   
  855.   #if defined (O_NONBLOCK)
  856. --- 141,157 ----
  857.   unset_nodelay_mode (fd)
  858.        int fd;
  859.   {
  860. + 
  861. + /**
  862. +  ** (sjk)++ We remove the call to make stdin a noblocking stream, since this 
  863. +             is not a feature of our limited fcntl() call. No blocking Input 
  864. +         is however taken care of by the console_input_status()
  865. +             and console_read_byte() pair in the readline source code.
  866. +  **/
  867. + #if !defined(atarist)
  868.     int flags, set = 0;
  869.   
  870. !   if ((flags = fcntl(fd, F_GETFL, 0)) < 0)
  871.       return;
  872.   
  873.   #if defined (O_NONBLOCK)
  874. ***************
  875. *** 163,168 ****
  876. --- 172,178 ----
  877.   
  878.     if (set)
  879.       fcntl (fd, F_SETFL, flags);
  880. + #endif 
  881.   }
  882.   
  883.   
  884. ***************
  885. *** 347,354 ****
  886. --- 357,373 ----
  887.      begin with. */
  888.   
  889.   #ifndef MAXPATHLEN
  890. + 
  891. + /**
  892. +  ** (sjk)++ Adjust the MAXPATHLEN on the Atari ST, note that this should be 
  893. +  **         done in a more independent way (by including a standard header).
  894. +  **/
  895. + #if !defined(atarist)
  896.   #define MAXPATHLEN 1024
  897. + #else 
  898. + #define MAXPATHLEN 128
  899.   #endif
  900. + #endif
  901.   
  902.   static char current_path[MAXPATHLEN];
  903.   
  904. ***************
  905. *** 358,363 ****
  906. --- 377,391 ----
  907.   {
  908.     register char *cp;
  909.   
  910. + /** 
  911. +  ** (sjk)++ let the string "[a..z]:" pass through as is is a valid drive 
  912. +  **         specification on the Atari ST.
  913. +  **/
  914. + #if defined(atarist)
  915. +   if ((strlen(string)>1) && (string[1] == ':'))
  916. +     return(savestring (string));
  917. + #endif 
  918. +  
  919.     if (!dot_path || *string == '/')
  920.       return (savestring (string));
  921.   
  922. diff -c ./general.h /home/scott/work/bash-1.08/st-bash-src/general.h
  923. *** ./general.h    Fri May 17 19:58:24 1991
  924. --- /home/scott/work/bash-1.08/st-bash-src/general.h    Wed Aug 14 15:00:28 1991
  925. ***************
  926. *** 72,78 ****
  927.   #define SET_CLOSE_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_CLOEXEC))
  928.   #define SET_OPEN_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_NCLOEXEC))
  929.   
  930. - extern char *xmalloc (), *malloc (), *xrealloc (), *realloc ();
  931.   extern char *itos ();
  932.   
  933.   #endif    /* _GENERAL_ */
  934. --- 72,80 ----
  935.   #define SET_CLOSE_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_CLOEXEC))
  936.   #define SET_OPEN_ON_EXEC(fd)    (fcntl ((fd), F_SETFD, FD_NCLOEXEC))
  937.   
  938.   extern char *itos ();
  939.   
  940.   #endif    /* _GENERAL_ */
  941. + 
  942. + 
  943. + 
  944. diff -c ./mailcheck.c /home/scott/work/bash-1.08/st-bash-src/mailcheck.c
  945. *** ./mailcheck.c    Wed Jan 30 17:04:04 1991
  946. --- /home/scott/work/bash-1.08/st-bash-src/mailcheck.c    Wed Aug 14 13:27:38 1991
  947. ***************
  948. *** 24,29 ****
  949. --- 24,34 ----
  950.   #include <sys/param.h>
  951.   #include "shell.h"
  952.   
  953. + /**
  954. +  ** (sjk)++ Remove all host/mail references on the Atari ST1
  955. +  **/
  956. + #if !defined(atarist)
  957. + 
  958.   #ifndef MAXPATHLEN
  959.   #define MAXPATHLEN 1024
  960.   #endif
  961. ***************
  962. *** 150,155 ****
  963. --- 155,161 ----
  964.     mailfiles_count = 0;
  965.     mailfiles = (FILEINFO **)NULL;
  966.   }
  967. + #endif 
  968.   
  969.   /* Return the full pathname of FILE.  Easy.  Filenames that begin
  970.      with a '/' are returned as themselves.  Other filenames have
  971. ***************
  972. *** 192,197 ****
  973. --- 198,208 ----
  974.     }
  975.   }
  976.   
  977. + /**
  978. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  979. +  **/
  980. + #if !defined(atarist)
  981. + 
  982.   /* Return non-zero if FILE's mod date has changed. */
  983.   file_mod_date_changed (file)
  984.        char *file;
  985. ***************
  986. *** 400,402 ****
  987. --- 411,414 ----
  988.     free (mailpaths);
  989.     bind_variable ("_", dollar_underscore);
  990.   }
  991. + #endif 
  992. diff -c ./nojobs.c /home/scott/work/bash-1.08/st-bash-src/nojobs.c
  993. *** ./nojobs.c    Tue Aug 27 08:56:25 1991
  994. --- /home/scott/work/bash-1.08/st-bash-src/nojobs.c    Wed Aug 14 13:47:32 1991
  995. ***************
  996. *** 46,56 ****
  997.   #define SIGABRT SIGIOT
  998.   #endif
  999.   
  1000. ! #if defined (USG) || defined (_POSIX_VERSION)
  1001.   #define killpg(pg, sig)        kill(-(pg),(sig))
  1002.   #endif
  1003.   
  1004. ! #if defined (USG)
  1005.   #define siginterrupt(sig, code)
  1006.   #endif
  1007.   
  1008. --- 46,62 ----
  1009.   #define SIGABRT SIGIOT
  1010.   #endif
  1011.   
  1012. ! /**
  1013. !  ** (sjk)++ Remove all host/mail references on the Atari ST1
  1014. !  **/
  1015. ! #if defined (USG) || defined (_POSIX_VERSION) || defined(atarist)
  1016.   #define killpg(pg, sig)        kill(-(pg),(sig))
  1017.   #endif
  1018.   
  1019. ! /**
  1020. !  ** (sjk)++ Make siginterrupt() a NULL code on the Atari ST
  1021. !  **/
  1022. ! #if defined (USG) || defined(atarist)
  1023.   #define siginterrupt(sig, code)
  1024.   #endif
  1025.   
  1026. ***************
  1027. *** 150,155 ****
  1028. --- 156,168 ----
  1029.     return (pid);
  1030.   }
  1031.   
  1032. + /**
  1033. +  ** (sjk)++ Define ECHILD to be an unknown/general ERROR code for the Atari ST
  1034. +  **/
  1035. + #if defined(atarist)
  1036. + #define ECHILD (-1)
  1037. + #endif
  1038. + 
  1039.   /* Wait for a single pid (PID) and return its exit status. */
  1040.   wait_for_single_pid (pid)
  1041.        pid_t pid;
  1042. ***************
  1043. *** 189,195 ****
  1044.         WAIT status;
  1045.   
  1046.         while ((got_pid = wait(&status)) != -1)  /* wait for ECHILD */
  1047. !     ;
  1048.         if (errno != EINTR && errno != ECHILD)
  1049.       {
  1050.         siginterrupt (SIGINT, 0);
  1051. --- 202,209 ----
  1052.         WAIT status;
  1053.   
  1054.         while ((got_pid = wait(&status)) != -1)  /* wait for ECHILD */
  1055. !      printf("Stuck in wait loop with got_pid = %d\n",got_pid);
  1056. ! 
  1057.         if (errno != EINTR && errno != ECHILD)
  1058.       {
  1059.         siginterrupt (SIGINT, 0);
  1060. ***************
  1061. *** 297,303 ****
  1062. --- 311,324 ----
  1063.   /* Fill the contents of shell_tty_info with the current tty info. */
  1064.   get_tty_state ()
  1065.   {
  1066. + /**
  1067. +  ** (sjk)++ Attach the terminal to CON: on the Atari ST
  1068. +  **/
  1069. + #if !defined(atarist)
  1070.     int tty = open ("/dev/tty", O_RDONLY);
  1071. + #else 
  1072. +   int tty = open("CON:", O_RDONLY);
  1073. + #endif 
  1074.     if (tty != -1)
  1075.       {
  1076.      
  1077. ***************
  1078. *** 318,324 ****
  1079. --- 339,352 ----
  1080.   /* Make the current tty use the state in shell_tty_info. */
  1081.   set_tty_state ()
  1082.   {
  1083. + /**
  1084. +  ** (sjk)++ Attach the terminal to CON: on the Atari ST
  1085. +  **/
  1086. + #if !defined(atarist)
  1087.     int tty = open ("/dev/tty", O_RDONLY);
  1088. + #else 
  1089. +   int tty = open("CON:", O_RDONLY);
  1090. + #endif 
  1091.     if (tty != -1)
  1092.       {
  1093.         if (!got_tty_state)
  1094. ***************
  1095. *** 326,336 ****
  1096.   #if defined (_POSIX_VERSION)
  1097.         tcsetattr (tty, TCSADRAIN, &shell_tty_info);
  1098.   #else
  1099. ! #  if defined (USG)
  1100. !       ioctl (tty, TCSETAW, &shell_tty_info);  /* Wait for output, no flush */
  1101. ! #  else
  1102.         ioctl (tty, TIOCSETN, &shell_tty_info);
  1103. ! #  endif
  1104.   #endif
  1105.         close (tty);
  1106.       }
  1107. --- 354,367 ----
  1108.   #if defined (_POSIX_VERSION)
  1109.         tcsetattr (tty, TCSADRAIN, &shell_tty_info);
  1110.   #else
  1111. ! /** 
  1112. !  ** (sjk)++ Set the terminal parameters ala USG if on an Atari ST
  1113. !  **/
  1114. ! #if defined (USG) || defined(atarist)
  1115.         ioctl (tty, TIOCSETN, &shell_tty_info);
  1116. ! #else
  1117. !       ioctl (tty, TCSETAW, &shell_tty_info);  /* Wait for output, no flush */
  1118. ! #endif
  1119.   #endif
  1120.         close (tty);
  1121.       }
  1122. diff -c ./parse.y /home/scott/work/bash-1.08/st-bash-src/parse.y
  1123. *** ./parse.y    Tue Aug 27 08:56:26 1991
  1124. --- /home/scott/work/bash-1.08/st-bash-src/parse.y    Wed Aug 21 02:36:44 1991
  1125. ***************
  1126. *** 671,676 ****
  1127. --- 671,680 ----
  1128.   /*                                    */
  1129.   /* **************************************************************** */
  1130.   
  1131. + #if defined(atarist)
  1132. + extern int console_read_byte();
  1133. + #endif
  1134. + 
  1135.   int
  1136.   yy_stream_get ()
  1137.   {
  1138. ***************
  1139. *** 678,684 ****
  1140. --- 682,695 ----
  1141.   #if defined (USG)
  1142.       return (sysv_getc (yy_input_dev));
  1143.   #else
  1144. + /**
  1145. +  ** (sjk)++ Atari ST hack for input
  1146. +  **/
  1147. + #if !defined(atarist)
  1148.       return (getc (yy_input_dev));
  1149. + #else 
  1150. +     return(console_read_byte(fileno(yy_input_dev)));
  1151. + #endif 
  1152.   #endif    /* USG */
  1153.     else return (EOF);
  1154.   }
  1155. ***************
  1156. *** 1349,1354 ****
  1157. --- 1360,1370 ----
  1158.   {
  1159.     if (interactive && (!current_token || current_token == '\n'))
  1160.       {
  1161. + 
  1162. + /**
  1163. +  ** (sjk)++
  1164. +  **/
  1165. + #if !defined(atarist)
  1166.         /* Before we print a prompt, we might have to check mailboxes.
  1167.        We do this only if it is time to do so. Notice that only here
  1168.        is the mail alarm reset; nothing takes place in check_mail ()
  1169. ***************
  1170. *** 1358,1363 ****
  1171. --- 1374,1380 ----
  1172.         check_mail ();
  1173.         reset_mail_timer ();
  1174.       }
  1175. + #endif
  1176.   
  1177.         /* Allow the execution of a random command just before the printing
  1178.        of each primary prompt.  If the shell variable PROMPT_COMMAND
  1179. ***************
  1180. *** 2183,2189 ****
  1181. --- 2200,2210 ----
  1182.      of MAXPATHLEN is a crock if you ask me.  Why can't we just have
  1183.      dynamically defined sizes?  (UCSB crashes every 20 minutes on me.) */
  1184.   #ifndef MAXPATHLEN
  1185. + #if !defined(atarist)
  1186.   #define MAXPATHLEN 1024
  1187. + #else 
  1188. + #define MAXPATHLEN 128
  1189. + #endif
  1190.   #endif    /* MAXPATHLEN */
  1191.   
  1192.   /* Return a string which will be printed as a prompt.  The string
  1193. diff -c ./shell.c /home/scott/work/bash-1.08/st-bash-src/shell.c
  1194. *** ./shell.c    Wed May 22 15:15:02 1991
  1195. --- /home/scott/work/bash-1.08/st-bash-src/shell.c    Wed Aug 21 00:26:26 1991
  1196. ***************
  1197. *** 38,43 ****
  1198. --- 38,44 ----
  1199.   #if !defined (sony)
  1200.   #include <fcntl.h>
  1201.   #endif /* sony */
  1202. + 
  1203.   #include <sys/file.h>
  1204.   #include "posixstat.h"
  1205.   #include <pwd.h>
  1206. ***************
  1207. *** 132,139 ****
  1208. --- 133,148 ----
  1209.   
  1210.   /* The environment at the top-level REP loop.  We use this in the case of
  1211.      error return. */
  1212. + /**
  1213. +  ** (sjk)++ catch is defined in setjmp.h on the Atari ST
  1214. +  **/
  1215. + #if !defined(atarist)
  1216.   jmp_buf top_level, catch;
  1217. + #else 
  1218. + jmp_buf top_level;
  1219. + #endif
  1220.   
  1221. + 
  1222.   /* Non-zero is the recursion depth for commands. */
  1223.   int indirection_level = 0;
  1224.   
  1225. ***************
  1226. *** 219,224 ****
  1227. --- 228,243 ----
  1228.            COMPAT_BSDTTY | COMPAT_EXEC | COMPAT_SYSCALLS);
  1229.   #endif /* AUX */
  1230.   
  1231. + /**
  1232. +  ** (sjk)++ Set the default unixmode as we cannot assume that the variable 
  1233. +  **         is set upon entering the shell.
  1234. +  **/
  1235. + #if defined(atarist)
  1236. +  if (!getenv("UNIXMODE")) _set_unixmode("/.,rCLAHdb");
  1237. +     else _set_unixmode(getenv("UNIXMODE"));
  1238. + #endif
  1239. + 
  1240. + 
  1241.     /* Wait forever if we are debugging a login shell. */
  1242.     while (debugging_login_shell);
  1243.   
  1244. ***************
  1245. *** 576,581 ****
  1246. --- 595,604 ----
  1247.     /* Do the things that should be done only for interactive shells. */
  1248.     if (interactive)
  1249.       {
  1250. + /**
  1251. +  ** (sjk)++ Remove all host/mail code on the Atari ST
  1252. +  **/
  1253. + #if !defined(atarist)
  1254.         /* Set up for checking for presence of mail. */
  1255.   #if defined (USG)
  1256.         /* Under System V, we can only tell if you have mail if the
  1257. ***************
  1258. *** 599,604 ****
  1259. --- 622,628 ----
  1260.       }
  1261.   
  1262.         reset_mail_timer ();
  1263. + #endif 
  1264.   
  1265.         change_flag_char ('i', FLAG_ON);
  1266.         
  1267. ***************
  1268. *** 898,904 ****
  1269.             {
  1270.           executing = 1;
  1271.           execute_command (current_command);
  1272. !           }
  1273.   
  1274.         exec_done:
  1275.           if (current_command)
  1276. --- 922,928 ----
  1277.             {
  1278.           executing = 1;
  1279.           execute_command (current_command);
  1280. !               }
  1281.   
  1282.         exec_done:
  1283.           if (current_command)
  1284. ***************
  1285. *** 988,994 ****
  1286.     /* Only do timeouts if interactive. */
  1287.     if (interactive)
  1288.       {
  1289. !       tmout_var = find_variable ("TMOUT");
  1290.   
  1291.         if (tmout_var && tmout_var->value)
  1292.       {
  1293. --- 1012,1022 ----
  1294.     /* Only do timeouts if interactive. */
  1295.     if (interactive)
  1296.       {
  1297. ! /**
  1298. !  ** (sjk)++ There is no nead to do an interative timeout on the Atari ST
  1299. !  **/
  1300. ! #if !defined(atarist)
  1301. !      tmout_var = find_variable ("TMOUT");
  1302.   
  1303.         if (tmout_var && tmout_var->value)
  1304.       {
  1305. ***************
  1306. *** 999,1004 ****
  1307. --- 1027,1033 ----
  1308.             alarm (tmout_len);
  1309.           }
  1310.       }
  1311. + #endif
  1312.       }
  1313.   
  1314.     QUIT;
  1315. ***************
  1316. *** 1005,1015 ****
  1317. --- 1034,1049 ----
  1318.   
  1319.     result = parse_command ();
  1320.   
  1321. + /**
  1322. +  ** (sjk)++ There is no need for an interactive timeout on the Atari ST
  1323. +  **/
  1324. + #if !defined(atarist)
  1325.     if (interactive && tmout_var && (tmout_len > 0))
  1326.       {
  1327.         alarm(0);
  1328.         signal (SIGALRM, old_alrm);
  1329.       }
  1330. + #endif
  1331.     return (result);
  1332.   }
  1333.   
  1334. ***************
  1335. *** 1321,1327 ****
  1336.   sigint_sighandler (sig)
  1337.        int sig;
  1338.   {
  1339. ! #if defined (USG) && !defined (_POSIX_VERSION)
  1340.     signal (sig, sigint_sighandler);
  1341.   #endif
  1342.   
  1343. --- 1355,1364 ----
  1344.   sigint_sighandler (sig)
  1345.        int sig;
  1346.   {
  1347. ! /**
  1348. !  **  (sjk)++ Offer up the signal ala USG on the Atari ST
  1349. !  **/
  1350. ! #if (defined (USG) && !defined(_POSIX_VERSION)) || defined(atarist)
  1351.     signal (sig, sigint_sighandler);
  1352.   #endif
  1353.   
  1354. diff -c ./shell.h /home/scott/work/bash-1.08/st-bash-src/shell.h
  1355. *** ./shell.h    Mon May 20 05:01:20 1991
  1356. --- /home/scott/work/bash-1.08/st-bash-src/shell.h    Wed Aug 14 15:01:15 1991
  1357. ***************
  1358. *** 20,26 ****
  1359. --- 20,33 ----
  1360.   /* A bunch of stuff for flow of control using setjmp () and longjmp (). */
  1361.   
  1362.   #include <setjmp.h>
  1363. + /**
  1364. +  ** (sjk)++ catch is defined in setjmp.h on the Atari ST
  1365. +  **/
  1366. + #if !defined(atarist)
  1367.   extern jmp_buf top_level, catch;
  1368. + #else
  1369. + extern jmp_buf top_level;
  1370. + #endif
  1371.   
  1372.   #define NOT_JUMPED 0        /* Not returning from a longjmp. */
  1373.   #define FORCE_EOF 1        /* We want to stop parsing. */
  1374. diff -c ./subst.c /home/scott/work/bash-1.08/st-bash-src/subst.c
  1375. *** ./subst.c    Tue Aug 27 08:56:27 1991
  1376. --- /home/scott/work/bash-1.08/st-bash-src/subst.c    Wed Aug 14 14:42:47 1991
  1377. ***************
  1378. *** 2254,2260 ****
  1379.            continue.  In the common case, at least when running shell
  1380.            scripts, this will degenerate to a bunch of calls to `index',
  1381.            and then what is basically the body of copy_word_list. */
  1382. !       if (index (tlist->word->word, '{') != NULL)
  1383.           {
  1384.             expansions = brace_expand (tlist->word->word);
  1385.   
  1386. --- 2254,2260 ----
  1387.            continue.  In the common case, at least when running shell
  1388.            scripts, this will degenerate to a bunch of calls to `index',
  1389.            and then what is basically the body of copy_word_list. */
  1390. !       if (index ((tlist->word->word), '{') != (int)NULL)
  1391.           {
  1392.             expansions = brace_expand (tlist->word->word);
  1393.   
  1394. ***************
  1395. *** 2451,2459 ****
  1396.   
  1397.   /* The functions that get called. */
  1398.   int
  1399. !   sv_path (), sv_mail (), sv_terminal (), sv_histsize (), sv_histfilesize (),
  1400.     sv_uids (), sv_ignoreeof (), sv_glob_dot_filenames (), sv_histchars (),
  1401. !   sv_nolinks (), sv_hostname_completion_file (), sv_history_control (),
  1402.     sv_noclobber (), sv_allow_null_glob_expansion (), sv_optind (), sv_opterr ();
  1403.   
  1404.   #if defined (JOB_CONTROL)
  1405. --- 2451,2473 ----
  1406.   
  1407.   /* The functions that get called. */
  1408.   int
  1409. !   sv_path (),
  1410. ! /**
  1411. !  ** (sjk)++ Remove all host/mail references on the Atari ST
  1412. !  **/
  1413. ! #if !defined(atarist)
  1414. !              sv_mail (),
  1415. ! #endif 
  1416. !   sv_terminal (), sv_histsize (), sv_histfilesize (),
  1417.     sv_uids (), sv_ignoreeof (), sv_glob_dot_filenames (), sv_histchars (),
  1418. !   sv_nolinks (), 
  1419. ! /**
  1420. !  ** (sjk)++ Remove all host/mail references on the Atari ST
  1421. !  **/
  1422. ! #if !defined(atarist)
  1423. !   sv_hostname_completion_file (), 
  1424. ! #endif 
  1425. !   sv_history_control (),
  1426.     sv_noclobber (), sv_allow_null_glob_expansion (), sv_optind (), sv_opterr ();
  1427.   
  1428.   #if defined (JOB_CONTROL)
  1429. ***************
  1430. *** 2465,2473 ****
  1431. --- 2479,2492 ----
  1432.     Function *function;
  1433.   } special_vars[] = {
  1434.     { "PATH", sv_path },
  1435. + /**
  1436. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1437. +  **/
  1438. + #if !defined(atarist)
  1439.     { "MAIL", sv_mail },
  1440.     { "MAILPATH", sv_mail },
  1441.     { "MAILCHECK", sv_mail },
  1442. + #endif
  1443.     { "TERMCAP", sv_terminal },
  1444.     { "TERM", sv_terminal },
  1445.     { "HISTSIZE", sv_histsize },
  1446. ***************
  1447. *** 2487,2493 ****
  1448. --- 2506,2517 ----
  1449.     { "allow_null_glob_expansion", sv_allow_null_glob_expansion },
  1450.     { "histchars", sv_histchars },
  1451.     { "nolinks", sv_nolinks },
  1452. + /**
  1453. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1454. +  **/
  1455. + #if !defined(atarist)
  1456.     { "hostname_completion_file", sv_hostname_completion_file },
  1457. + #endif
  1458.     { "history_control", sv_history_control },
  1459.     { "noclobber", sv_noclobber },
  1460.     { (char *)0x00, (Function *)0x00 }
  1461. ***************
  1462. *** 2537,2542 ****
  1463. --- 2561,2570 ----
  1464.   
  1465.   /* What to do just after one of the MAILxxxx variables has changed.  NAME
  1466.      is the name of the variable.  */
  1467. + /**
  1468. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1469. +  **/
  1470. + #if !defined(atarist)
  1471.   sv_mail (name)
  1472.        char *name;
  1473.   {
  1474. ***************
  1475. *** 2555,2560 ****
  1476. --- 2583,2589 ----
  1477.       }
  1478.       }
  1479.   }
  1480. + #endif 
  1481.   
  1482.   /* What to do just after one of the TERMxxx variables has changed.
  1483.      If we are an interactive shell, then try to reset the terminal
  1484. ***************
  1485. *** 2751,2756 ****
  1486. --- 2780,2789 ----
  1487.     v->attributes |= (att_readonly | att_integer);
  1488.   }
  1489.   
  1490. + /**
  1491. +  ** (sjk)++ Remove all host/mail references on the Atari ST
  1492. +  **/
  1493. + #if !defined(atarist)
  1494.   sv_hostname_completion_file (name)
  1495.        char *name;
  1496.   {
  1497. ***************
  1498. *** 2758,2763 ****
  1499. --- 2791,2797 ----
  1500.   
  1501.     hostname_list_initialized = 0;
  1502.   }
  1503. + #endif 
  1504.   
  1505.   sv_allow_null_glob_expansion (name)
  1506.        char *name;
  1507. diff -c ./trap.c /home/scott/work/bash-1.08/st-bash-src/trap.c
  1508. *** ./trap.c    Sun May 19 14:43:41 1991
  1509. --- /home/scott/work/bash-1.08/st-bash-src/trap.c    Wed Aug 14 14:51:00 1991
  1510. ***************
  1511. *** 285,293 ****
  1512. --- 285,298 ----
  1513.   /* Non-zero when we catch a trapped signal. */
  1514.   static int catch_flag = 0;
  1515.   
  1516. + /**
  1517. +  ** (sjk)++ NO BSD type signals on the Atari ST1
  1518. +  **/
  1519. + #if !defined(atarist)
  1520.   #if !defined (USG) && !defined (USGr4)
  1521.   #define HAVE_BSD_SIGNALS
  1522.   #endif
  1523. + #endif
  1524.   
  1525.   run_pending_traps ()
  1526.   {
  1527. ***************
  1528. *** 362,368 ****
  1529.     if (original_signals[sig] == SIG_IGN)
  1530.       return;
  1531.   
  1532. ! #ifdef SIGCHLD
  1533.     /* Don't change the function that catches SIGCHLD, but store the command
  1534.        to be executed.  It will be run from jobs.c: flush_child(). */
  1535.     if (sig && (sig != SIGCHLD))
  1536. --- 367,373 ----
  1537.     if (original_signals[sig] == SIG_IGN)
  1538.       return;
  1539.   
  1540. ! #if  defined(SIGCHLD)
  1541.     /* Don't change the function that catches SIGCHLD, but store the command
  1542.        to be executed.  It will be run from jobs.c: flush_child(). */
  1543.     if (sig && (sig != SIGCHLD))
  1544. ***************
  1545. *** 373,379 ****
  1546.   
  1547.     change_signal (sig, savestring (string));
  1548.   
  1549. ! #ifdef SIGCHLD
  1550.     /* Don't change the function that catches SIGCHLD, but store the command
  1551.        to be executed.  It will be run from jobs.c: flush_child(). */
  1552.     if (sig && (sig != SIGCHLD))
  1553. --- 378,384 ----
  1554.   
  1555.     change_signal (sig, savestring (string));
  1556.   
  1557. ! #if defined(SIGCHLD)
  1558.     /* Don't change the function that catches SIGCHLD, but store the command
  1559.        to be executed.  It will be run from jobs.c: flush_child(). */
  1560.     if (sig && (sig != SIGCHLD))
  1561. ***************
  1562. *** 401,410 ****
  1563.   restore_default_signal (sig)
  1564.        int sig;
  1565.   {
  1566. - #ifdef SIGCHLD
  1567.     /* Don't allow the SIGCHLD signal catcher to be overridden. */
  1568.     if (sig != SIGCHLD)
  1569. - #endif
  1570.       signal (sig, original_signals[sig]);
  1571.     change_signal (sig, (char *)DEFAULT_SIG);
  1572.   }
  1573. --- 406,413 ----
  1574. ***************
  1575. *** 414,423 ****
  1576.   ignore_signal (sig)
  1577.        int sig;
  1578.   {
  1579. - #ifdef SIGCHLD
  1580.     /* Don't allow the SIGCHLD signal catcher to be overridden. */
  1581.     if (sig != SIGCHLD)
  1582. - #endif
  1583.       signal (sig, SIG_IGN);
  1584.     change_signal (sig, (char *)IGNORE_SIG);
  1585.   }
  1586. --- 417,424 ----
  1587. diff -c ./ulimit.c /home/scott/work/bash-1.08/st-bash-src/ulimit.c
  1588. *** ./ulimit.c    Fri May 17 20:17:03 1991
  1589. --- /home/scott/work/bash-1.08/st-bash-src/ulimit.c    Mon Aug 19 15:01:54 1991
  1590. ***************
  1591. *** 29,34 ****
  1592. --- 29,40 ----
  1593.   #if defined (HAVE_RESOURCE)
  1594.   #include <sys/time.h>
  1595.   #include <sys/resource.h>
  1596. + /**
  1597. +  ** We require some library support on the Atari ST
  1598. +  **/
  1599. + #if defined(atarist)
  1600. + #include "../lib+/r-res.h"
  1601. + #endif
  1602.   #else
  1603.   #include <sys/times.h>
  1604.   #endif
  1605. diff -c ./variables.c /home/scott/work/bash-1.08/st-bash-src/variables.c
  1606. *** ./variables.c    Fri May 17 20:33:53 1991
  1607. --- /home/scott/work/bash-1.08/st-bash-src/variables.c    Mon Aug 26 10:27:45 1991
  1608. ***************
  1609. *** 66,76 ****
  1610. --- 66,81 ----
  1611.   /* The list of variables that may not be unset in this shell. */
  1612.   char **non_unsettable_vars = (char **)NULL;
  1613.   
  1614. + /**
  1615. +  **  (sjk)++ Remove all mail references on the Atari ST 
  1616. +  **/
  1617. + #if !defined(atarist)   
  1618.   #if defined (USG)
  1619.   #define DEFAULT_MAIL_PATH "/usr/mail/"
  1620.   #else
  1621.   #define DEFAULT_MAIL_PATH "/usr/spool/mail/"
  1622.   #endif
  1623. + #endif 
  1624.   
  1625.   /* Some forward declarations. */
  1626.   SHELL_VAR *set_if_not ();    /* returns new or existing entry */
  1627. ***************
  1628. *** 136,141 ****
  1629. --- 141,157 ----
  1630.   
  1631.     /* Now make our own defaults in case the vars that we think are
  1632.        important are missing. */
  1633. + 
  1634. + /**
  1635. +  ** (sjk)++ We set some default environment variables, provided 
  1636. +  **         that they are not defined.
  1637. +  **/
  1638. + #if defined(atarist)
  1639. +   set_if_not("UNIXMODE","/.,rCLAHdb");   /* Set a default Unixmode */ 
  1640. +   set_if_not("HOME","/dev/A");
  1641. +   set_if_not("TERM","vt52");
  1642. + #endif 
  1643. + 
  1644.     temp_var = set_if_not ("PATH", DEFAULT_PATH_VALUE);
  1645.     set_auto_export (temp_var);
  1646.   
  1647. ***************
  1648. *** 150,155 ****
  1649. --- 166,175 ----
  1650.     temp_var = set_if_not ("HOSTTYPE", HOSTTYPE);
  1651.     set_auto_export (temp_var);
  1652.   
  1653. + /**
  1654. +  **  (sjk)++ Remove all mail references on the Atari ST 
  1655. +  **/
  1656. + #if !defined(atarist)   
  1657.     /* Default MAILPATH, and MAILCHECK. */
  1658.     set_if_not ("MAILCHECK", "60");
  1659.     if ((get_string_value ("MAIL") == (char *)NULL) &&
  1660. ***************
  1661. *** 166,171 ****
  1662. --- 186,192 ----
  1663.         bind_variable ("MAILPATH", tem);
  1664.         free (tem);
  1665.       }
  1666. + #endif
  1667.   
  1668.     /* Set up $PWD. */
  1669.     {
  1670. ***************
  1671. *** 280,286 ****
  1672.       set_if_not ("HISTFILE", tem);
  1673.       free (tem);
  1674.   
  1675. !     set_if_not ("HISTSIZE", "500");
  1676.       sv_histsize ("HISTSIZE");
  1677.     }
  1678.   
  1679. --- 301,307 ----
  1680.       set_if_not ("HISTFILE", tem);
  1681.       free (tem);
  1682.   
  1683. !     set_if_not ("HISTSIZE", "50");
  1684.       sv_histsize ("HISTSIZE");
  1685.     }
  1686.   
  1687. ***************
  1688. *** 350,356 ****
  1689.         return;
  1690.   
  1691.     non_unsettable_vars = (char **)
  1692. !     xrealloc (non_unsettable_vars, (2 + i) * sizeof (char *));
  1693.     non_unsettable_vars[i] = savestring (name);
  1694.     non_unsettable_vars[i + 1] = (char *)NULL;
  1695.   }
  1696. --- 371,377 ----
  1697.         return;
  1698.   
  1699.     non_unsettable_vars = (char **)
  1700. !     xrealloc ((char *)non_unsettable_vars, (2 + i) * sizeof (char *));
  1701.     non_unsettable_vars[i] = savestring (name);
  1702.     non_unsettable_vars[i + 1] = (char *)NULL;
  1703.   }
  1704. ***************
  1705. *** 393,399 ****
  1706.           {
  1707.             if (list_index + 1 >= list_size)
  1708.           list = (SHELL_VAR **)
  1709. !           xrealloc (list, (list_size += 20) * sizeof (SHELL_VAR *));
  1710.   
  1711.             list[list_index++] = var;
  1712.             list[list_index] = (SHELL_VAR *)NULL;
  1713. --- 414,420 ----
  1714.           {
  1715.             if (list_index + 1 >= list_size)
  1716.           list = (SHELL_VAR **)
  1717. !           xrealloc ((char *)list, (list_size += 20) * sizeof (SHELL_VAR *));
  1718.   
  1719.             list[list_index++] = var;
  1720.             list[list_index] = (SHELL_VAR *)NULL;
  1721. ***************
  1722. *** 1353,1359 ****
  1723.   
  1724.     size = array_len (temporary_env);
  1725.     temporary_env = (char **)
  1726. !     xrealloc (temporary_env, (size + 2) * (sizeof (char *)));
  1727.   
  1728.     temporary_env[size] = (temp);
  1729.     temporary_env[size + 1] = (char *)NULL;
  1730. --- 1374,1380 ----
  1731.   
  1732.     size = array_len (temporary_env);
  1733.     temporary_env = (char **)
  1734. !     xrealloc ((char *)temporary_env, (size + 2) * (sizeof (char *)));
  1735.   
  1736.     temporary_env[size] = (temp);
  1737.     temporary_env[size + 1] = (char *)NULL;
  1738. ***************
  1739. *** 1454,1460 ****
  1740.         return (array);
  1741.       }
  1742.       }
  1743. !   array = (char **)xrealloc (array, (2 + array_len (array)) * sizeof (char *));
  1744.     array[i++] = savestring (assign);
  1745.     array[i] = (char *)NULL;
  1746.     return (array);
  1747. --- 1475,1481 ----
  1748.         return (array);
  1749.       }
  1750.       }
  1751. !   array = (char **)xrealloc ((char *)array, (2 + array_len (array)) * sizeof (char *));
  1752.     array[i++] = savestring (assign);
  1753.     array[i] = (char *)NULL;
  1754.     return (array);
  1755. ***************
  1756. *** 1539,1545 ****
  1757.   #if !defined (NeXT)
  1758.   char *
  1759.   getenv (name)
  1760. !      char *name;
  1761.   {
  1762.     SHELL_VAR *var = find_tempenv_variable (name);
  1763.   
  1764. --- 1560,1566 ----
  1765.   #if !defined (NeXT)
  1766.   char *
  1767.   getenv (name)
  1768. !      const char *name;
  1769.   {
  1770.     SHELL_VAR *var = find_tempenv_variable (name);
  1771.   
  1772.